﻿Public Class CTipoInstrumento
    Private _strTipoInstrumento As String
    Private _strNombre As String
    Private _strClase As String
    Private _strGrupo As String
    Private _blnEsEditableNuevo As Boolean

    Public Sub New()
        _strTipoInstrumento = ""
        _strNombre = ""
        _strClase = ""
        _strGrupo = ""
        _blnEsEditableNuevo = False
    End Sub

    Public Sub New(ByVal Tipo As String, ByVal Nom As String, ByVal Cla As String, ByVal Gru As String)
        _strTipoInstrumento = Tipo
        _strNombre = Nom
        _strClase = Cla
        _strGrupo = Gru
        _blnEsEditableNuevo = False
    End Sub

    Public Sub New(ByVal Tipo As String, ByVal Nom As String, ByVal Cla As String, ByVal Gru As String, ByVal EditableNuevo As Boolean)
        _strTipoInstrumento = Tipo
        _strNombre = Nom
        _strClase = Cla
        _strGrupo = Gru
        _blnEsEditableNuevo = EditableNuevo
    End Sub

    Public Property TIPOINSTRUMENTO As String
        Get
            TIPOINSTRUMENTO = Me._strTipoInstrumento
        End Get
        Set(value As String)
            Me._strTipoInstrumento = value
        End Set
    End Property

    Public Property NOMBRE As String
        Get
            NOMBRE = Me._strNombre
        End Get
        Set(value As String)
            Me._strNombre = value
        End Set
    End Property

    Public Property CLASE As String
        Get
            CLASE = Me._strClase
        End Get
        Set(value As String)
            Me._strClase = value
        End Set
    End Property

    Public Property GRUPO As String
        Get
            GRUPO = Me._strGrupo
        End Get
        Set(value As String)
            Me._strGrupo = value
        End Set
    End Property

    Public Property EsEditableNuevo As Boolean
        Get
            EsEditableNuevo = Me._blnEsEditableNuevo
        End Get
        Set(value As Boolean)
            Me._blnEsEditableNuevo = value
        End Set
    End Property
End Class
